0 REM SAVE"@0:TOCCATA & FUGUE",8,1 : 100 FORS=54270TO54300:POKES,0:NEXT 200 BO=53280:BG=53281:POKEBO,1:POKEBG,0:PRINT"[147]" 201 PRINTTAB(12)"TOCCATA & FUGUE" 202 PRINTTAB(14)"IN D MINOR" 203 PRINTTAB(14)"J. S. BACH" 204 PRINTTAB(12)"TRANSCRIBED BY" 205 PRINTTAB(12)"DOUGLAS A. BURR" 210 V=54296:REM VOLUME CONTROL 220 A1=54277:S1=54278:W1=54276:H1=54273:L1=54272:REM VOICE 1 230 A2=54284:S2=54285:W2=54283:H2=54280:L2=54279:REM VOICE 2 235 A3=54291:S3=54292:W3=54290:H3=54287:L3=54286:REM VOICE 3 400 POKEV,15:REM VOLUME HIGH 410 POKEA1,1:POKEA2,1:POKEA3,1:REM ATTACK 420 POKES1,136:POKES2,136:POKES3,136:REM SUSTAIN 430 POKEW1,33:POKEW2,33:POKEW3,33:REM SAWTOOTH ALL VOICES 1005 W=100:REM TIME DELAY VARIABLE 1010 READA,B,C,D,E,F 1015 IFA=300THENW=40 :GOTO1010 1020 IFA=325THENW=100:GOTO1010 1025 IFA=350THENW=20 :GOTO1010 1030 IFA=400THENW=5 :GOTO1010 1031 IFA=425THENW=25 :GOTO1010 1035 IFA=999THEN1200 1100 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F 1105 POKEW1,33:POKEW2,33:POKEW3,33 1130 FORI=1TOW:NEXT 1135 GOTO1010 1200 PRINT"[144]LOAD"CHR$(34)"T2"CHR$(34)",8" 1201 POKE198,6 1202 FORI=1TO6:READX:POKE630+I,X:NEXT 2000 REM DATA IN SIX 'PIECES' 2001 DATA56,99,28,49,,,50,60,25,30,,,56,99,28,49,, 2002 DATA56,99,28,49,,,56,99,28,49,,,56,99,28,49,,,56,99,28,49,, 2003 DATA,,,,,,50,60,25,30,,,50,60,25,30,,,44,193,22,96,,,42,62,21,31,, 2004 DATA37,162,18,209,,,35,134,17,195,,,35,134,17,195,, 2005 DATA37,162,18,209,,,37,162,18,209,, 2006 DATA37,162,18,209,,,37,162,18,209,,,,,,,,,,,,,,,,,,,,,,,,,, 2007 DATA28,49,14,24,,,25,30,12,143,,,28,49,14,24,, 2008 DATA28,49,14,24,,,28,49,14,24,,,28,49,14,24,,,28,49,14,24,,,,,,,, 2009 DATA21,31,10,143,,,21,31,10,143,,,22,96,11,48,,,22,96,11,48,,,17,195,8,225 2010 DATA,,17,195,8,225,,,18,209,9,104,, 2011 DATA18,209,9,104,,,18,209,9,104,, 2012 DATA18,209,9,104,,,,,,,,,,,,,,,,,,,,,,,,,,:REM BAR 1 2013 DATA14,24,7,12,,,12,143,6,71,,,14,24,7,12,, 2014 DATA14,24,7,12,,,14,24,7,12,,,14,24,7,12,,,,,,,, 2015 DATA12,143,6,71,,,11,48,5,152,,,10,143,5,71,, 2016 DATA9,104,4,180,,,8,225,4,112,,,8,225,4,112,, 2017 DATA9,104,4,180,,,9,104,4,180,,,9,104,4,180,, 2018 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,90,,,,,2,90,,,,,2,90,,,,,2,90 2019 DATA,,8,225,2,90,,,8,225,2,90,,,8,225,2,90,,,8,225,2,90 2020 DATA10,143,8,225,2,90,10,143,8,225,2,90,10,143,8,225,2,90,10,143,8,225,2,90 2021 DATA12,143,8,225,2,90,12,143,8,225,2,90,12,143,8,225,2,90,12,143,8,225,2,90 2022 DATA14,239,8,225,2,90,14,239,8,225,2,90,14,239,8,225,2,90,14,239,8,225,2,90 2023 DATA17,195,8,225,2,90,17,195,8,225,2,90,17,195,8,225,2,90 2024 DATA17,195,8,225,2,90 2025 DATA21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90 2026 DATA21,31,8,225,2,90:REM BAR 2 2027 DATA21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90 2028 DATA18,209,12,143,2,90,18,209,12,143,2,90,18,209,10,143,2,90 2029 DATA18,209,10,143,2,90 2030 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90 2031 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90 2032 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90 2033 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2034 DATA300,300,300,300,300,300 2035 DATA17,197,8,225,,,17,197,8,225,,:REM BAR 3 2036 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,, 2037 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,, 2038 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,, 2039 DATA18,209,9,104,,,18,209,9,104,,,21,31,10,143,,,21,31,10,143,, 2040 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,, 2041 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,, 2042 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,, 2043 DATA22,96,11,48,,,22,96,11,48,,,25,30,12,143,,,25,30,12,143,,:REM BAR 4 2044 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,, 2045 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,, 2046 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,, 2047 DATA28,49,14,24,,,28,49,14,24,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2048 DATA,,,,,,,,,,,,35,134,17,195,,,35,134,17,195,,:REM BAR 5 2049 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,, 2050 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,, 2051 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,, 2052 DATA37,162,18,209,,,37,162,18,209,,,42,62,21,31,,,42,62,21,31,, 2053 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,, 2054 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,, 2055 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,, 2057 DATA44,193,22,96,,,44,193,22,96,,,50,60,25,30,,,50,60,25,30,,:REM BAR 6 2058 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,, 2059 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,, 2060 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,, 2061 DATA56,99,28,49,,,56,99,28,49,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2062 DATA56,99,28,49,,,56,99,28,49,,:REM BAR 7 2063 DATA50,60,25,30,,,59,190,29,223,,,42,62,21,31,, 2064 DATA50,60,25,30,,,59,190,29,223,,,42,62,21,31,, 2065 DATA44,193,22,96,,,56,99,28,49,,,37,162,18,209,, 2066 DATA44,193,22,96,,,56,99,28,49,,,37,162,18,209,, 2067 DATA42,62,21,31,,,50,60,25,30,,,33,135,16,195,, 2068 DATA42,62,21,31,,,50,60,25,30,,,33,135,16,195,, 2069 DATA37,162,18,209,,,44,193,22,96,,,29,223,14,239,, 2070 DATA37,162,18,209,,,44,193,22,96,,,29,223,14,239,,:REM BAR 8 2071 DATA33,135,16,195,,,42,62,21,31,,,28,49,14,24,, 2072 DATA33,135,16,195,,,42,62,21,31,,,28,49,14,24,, 2073 DATA29,223,14,239,,,37,162,18,209,,,25,30,12,143,, 2074 DATA29,223,14,239,,,37,162,18,209,,,25,30,12,143,, 2075 DATA28,49,14,24,,,33,135,16,195,,,22,96,11,48,, 2076 DATA28,49,14,24,,,33,135,16,195,,,22,96,11,48,, 2077 DATA25,30,12,143,,,29,223,14,239,,,21,31,10,143,, 2078 DATA25,30,12,143,,,29,223,14,239,,,21,31,10,143,,:REM BAR 9 2079 DATA22,96,11,48,,,28,49,14,24,,,18,209,9,104,, 2080 DATA22,96,11,48,,,28,49,14,24,,,18,209,9,104,, 2081 DATA21,31,10,143,,,25,30,12,143,,,17,195,8,225,, 2082 DATA21,31,10,143,,,25,30,12,143,,,17,195,8,225,, 2083 DATA325,325,325,325,325,325 2084 DATA,,,,2,90,,,,,2,90,,,,,2,90,,,,,2,90 2085 DATA29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90 2086 REM BAR 10 2087 DATA29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90 2088 DATA350,350,350,350,350,350 2089 DATA29,223,,,,,28,49,,,, 2090 DATA25,30,,,,,22,96,,,, 2091 DATA21,31,,,,,18,209,,,, 2092 DATA17,195,,,,,15,210,,,, 2093 DATA17,195,,,,,17,195,,,,,14,24,,,,,14,24,,,, 2094 DATA17,195,,,,,17,195,,,,,21,31,,,,,25,30,,,, 2095 DATA400,400,400,400,400,400 2096 DATA22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,, 2097 DATA22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,, 2098 DATA325,325,325,325,325,325 2099 DATA21,31,,,,,21,31,,,,,21,31,,,,,21,31,,,,:REM BAR 11 2100 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90 2101 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90 2102 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90 2104 DATA,,,,,,,,,,,,28,49,,,,,37,162,,,,,37,162,28,49,, 2105 DATA42,62,,,,,42,62,28,49,,,44,193,,,,,44,193,28,49,, 2106 DATA37,162,,,,,37,162,28,49,,,42,62,,,,,42,62,28,49,, 2107 DATA44,193,,,,,44,193,28,49,,,50,60,,,,,50,60,28,49,, 2108 DATA42,62,,,,,42,62,28,49,,:REM BAR 12 2109 DATA44,193,,,,,44,193,28,49,,,50,60,,,,,50,60,28,49,, 2110 DATA56,99,,,,,56,99,28,49,,,44,193,,,,,44,193,28,49,, 2111 DATA50,60,,,,,50,60,28,49,,,56,99,,,,,56,99,28,49,, 2112 DATA59,190,,,,,59,190,28,49,,,50,60,,,,,50,60,28,49,, 2113 DATA56,99,,,,,56,99,28,49,,,44,193,,,,,44,193,28,49,, 2114 DATA50,60,,,,,50,60,28,49,,,42,62,,,,,42,62,28,49,, 2115 DATA44,193,,,,,44,193,28,49,,,37,162,,,,,37,162,28,49,, 2116 DATA42,62,,,,,42,62,28,49,,,35,134,,,,,35,134,28,49,,:REM BAR 13 2117 DATA37,162,,,,,37,162,28,49,,,28,49,,,,,28,49,28,49,, 2118 DATA29,223,,,,,29,223,28,49,,,25,30,,,,,25,30,28,49,, 2119 DATA28,49,,,,,28,49,28,49,,,22,96,,,,,22,96,28,49,, 2120 DATA25,30,,,,,25,30,28,49,,,21,31,,,,,21,31,28,49,, 2121 DATA22,96,,,,,22,96,28,49,,,18,209,,,,,18,209,28,49,, 2122 DATA25,30,,,,,25,30,28,49,,,21,31,,,,,21,31,28,49,, 2123 DATA22,96,,,,,22,96,28,49,,,18,209,,,,,18,209,28,49,, 2124 DATA21,31,,,,,21,31,28,49,,,17,195,,,,,17,195,28,49,,:REM BAR 14 2125 DATA18,209,,,,,18,209,28,49,,,14,24,,,,,14,24,28,49,, 2126 DATA14,239,,,,,14,239,28,49,,,12,143,,,,,12,143,28,49,, 2127 DATA14,24,,,,,14,24,28,49,,,11,48,,,,,11,48,28,49,, 2128 DATA12,143,,,,,12,143,28,49,,,10,143,,,,,10,143,28,49,, 2130 DATA11,48,,,,,11,48,28,49,,,9,104,,,,,9,104,28,49,, 2131 DATA12,143,,,,,12,143,28,49,,,10,143,,,,,10,143,28,49,, 2132 DATA11,48,,,,,11,48,28,49,,,9,104,,,,,9,104,28,49,, 2133 DATA10,143,,,,,10,143,28,49,,,8,225,,,,,8,225,28,49,,:REM BAR 15 2134 DATA425,425,425,425,425,425 2135 DATA9,104,,,,,9,104,,,,,9,104,,,,,9,104,,,,,,,,,, 2136 DATA18,209,,,,,22,96,,,,,29,223,,,,,22,96,,,, 2137 DATA16,195,,,,,21,31,,,,,28,49,,,,,21,31,,,, 2138 DATA14,239,,,,,18,209,,,,,25,30,,,,,18,209,,,, 2139 DATA14,24,,,,,17,195,,,,,21,31,,,,,28,49,,,, 2140 DATA,,18,209,4,180,,,18,209,4,180,29,223,22,96,4,180,29,223,22,96,4,180 2141 DATA,,14,24,4,48,,,14,24,4,48,28,49,21,31,4,48,28,49,21,31,4,48 2142 DATA,,14,239,3,187,,,14,239,3,187,25,30,18,209,3,187,25,30,18,209,3,187 2143 REM BAR 16 2144 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134 2145 DATA28,49,10,143,3,134,,,,,,,18,209,,,,,22,96,,,,,29,223,,,,,22,96,,,, 2146 DATA16,195,,,,,21,31,,,,,28,49,,,,,21,31,,,, 2147 DATA14,239,,,,,18,209,,,,,25,30,,,,,18,209,,,, 2148 DATA14,24,,,,,17,195,,,,,21,31,,,,,28,49,,,, 2149 DATA,,18,209,4,180,,,18,209,4,180,29,223,22,96,4,180,29,223,22,96,4,180 2150 DATA,,14,24,4,48,,,14,24,4,48,28,49,21,31,4,48,28,49,21,31,4,48,,,14,239,3 2151 DATA187,,,14,239,3,187,25,30,18,209,3,187,25,30,18,209,3,187:REM BAR 17 2152 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134 2153 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143 2154 DATA3,134,28,49,10,143,3,134,28,49,,,,,25,30,,,,,22,96,,,,,21,31,,,, 2155 DATA18,209,,,,,17,195,,,,,15,210,,,,,17,195,,,, 2156 DATA14,24,,,,,15,210,,,,,17,195,,,,,18,209,,,, 2157 DATA21,31,,,,,22,96,,,,,25,30,,,,,28,49,,,, 2158 DATA25,30,,,,,22,96,,,,,21,31,,,,,22,96,,,, 2159 DATA18,209,,,,,22,96,,,,,28,49,,,,,35,135,,,,:REM BAR 18 2160 DATA37,162,,,,,28,49,,,,,31,165,,,,,35,134,,,, 2161 DATA37,162,,,, 2162 DATA42,62,,,,,44,193,,,,,50,60,,,,,56,99,,,, 2163 DATA59,190,,,,,59,190,,,,,59,190,,,,,59,190,,,,,,,,,,,,,,,,,,,,,, 2164 DATA,,37,162,4,180,,,37,162,4,180 2165 DATA59,190,44,193,4,180,59,190,44,193,4,180 2166 DATA,,28,49,4,48,,,28,49,4,48 2167 DATA56,99,42,62,4,48,56,99,42,62,4,48 2168 DATA,,29,223,3,187,,,29,223,3,187 2169 DATA50,60,37,162,3,187,50,60,37,162,3,187 2170 DATA56,99,35,134,3,134,56,99,35,134,3,134,56,99,35,134,3,134 2171 DATA,,,,,,,,,,,,,,,,, 2172 DATA37,162,,,,,44,193,,,,,59,190,,,,,44,193,,,,:REM BAR 19 2173 DATA33,135,,,,,42,62,,,,,56,99,,,,,42,62,,,, 2174 DATA29,223,,,,,37,162,,,,,50,60,,,,,37,162,,,, 2175 DATA28,49,,,,,35,134,,,,,42,62,,,,,56,99,,,, 2176 DATA,,37,162,4,180,,,37,162,4,180,,,37,162,4,180 2177 DATA59,190,44,193,4,180,59,190,44,193,4,180,59,190,44,193,4,180 2178 DATA,,28,49,4,48,,,28,49,4,48,,,28,49,4,48 2179 DATA56,99,42,62,4,48,56,99,42,62,4,48,56,99,42,62,4,48 2180 DATA,,29,223,3,187,,,29,223,3,187,,,29,223,3,187 2181 DATA50,60,37,162,3,187,50,60,37,162,3,187,50,60,37,162,3,187 2182 DATA56,99,35,134,3,134,56,99,35,134,3,134,56,99,35,134,3,134 2183 DATA,,,,, 2184 DATA31,165,18,209,3,83,31,165,18,209,3,83,31,165,18,209,3,83 2185 DATA31,165,18,209,3,83,31,165,18,209,3,83:REM BAR 20 2186 DATA35,135,14,24,3,35,35,135,14,24,3,35,35,135,14,24,3,35 2187 DATA35,135,14,24,3,35,35,135,14,24,3,35,35,135,14,24,3,35 2189 DATA31,165,14,24,3,35,31,165,14,24,3,35 2190 DATA28,49,,,,,28,49,,,,,35,134,,,,,35,134,,,, 2191 DATA42,62,,,,,50,60,,,,,59,190,,,,,59,190,,,,,59,190,,,,,59,190,,,, 2192 DATA56,99,,,,,50,60,,,,,44,193,,,,,42,62,,,, 2193 DATA44,193,,,,,42,62,,,,,37,162,,,,,35,134,,,, 2194 DATA37,162,,,,,33,135,,,,,29,223,,,,,28,49,,,, 2195 DATA25,30,,,,,22,96,,,,,21,31,,,,,18,209,,,,:REM BAR 21 2197 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71 2198 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71 2199 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71 2200 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71 2201 DATA300,300,300,300,300,300 2202 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,, 2203 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,, 2204 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,, 2205 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,,:REM BAR 22 2207 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,, 2208 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,, 2209 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,, 2210 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,, 2211 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,, 2212 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2213 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,, 2214 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,:REM BAR 23 2216 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,, 2217 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2218 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,, 2219 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2220 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2221 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,, 2222 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2223 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,,:REM BAR 24 2224 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2225 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,, 2226 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2227 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,, 2228 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2229 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2230 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2231 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,:REM BAR 25 2232 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2233 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2234 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,, 2235 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,, 2236 DATA25,30,10,143,,,29,223,12,143,,,25,30,10,143,, 2237 DATA29,223,12,143,,,25,30,10,143,,,29,223,12,143,, 2238 DATA25,30,14,239,,,29,223,17,239,,,25,30,14,239,, 2239 DATA29,223,17,195,,,25,30,14,239,,,29,223,17,195,,:REM BAR 26 2241 DATA35,134,21,31,,,29,223,17,195,,,35,134,21,31,, 2242 DATA42,62,17,195,,,35,134,21,31,,,42,62,17,195,, 2243 DATA35,134,21,31,,,29,223,17,195,,,35,134,21,31,, 2244 DATA42,62,17,195,,,35,134,21,31,,,42,62,17,195,, 2245 DATA325,325,325,325,325,325 2246 DATA56,99,17,195,6,71,56,99,17,195,6,71 2247 DATA56,99,17,195,6,71,,,,,, 2248 DATA56,99,18,209,5,152,56,99,18,209,5,152 2249 DATA56,99,18,209,5,152,56,99,18,209,5,152:REM BAR 27 2251 DATA50,60,18,209,7,119,50,60,18,209,7,119 2252 DATA50,60,18,209,7,119,50,60,18,209,7,119 2253 DATA,,,,7,119,,,,,7,119,,,,,7,12,,,,,6,71 2254 DATA50,60,17,195,7,12,50,60,17,195,7,12 2255 DATA50,60,17,195,7,12,50,60,17,195,5,71 2256 DATA,,,,5,152,,,,,4,180,,,,,5,71,,,,,4,112:REM BAR 28 2258 DATA,,,,4,180,,,,,3,244,,,,,4,112,,,,,3,134 2259 DATA,,,,3,187,,,,,3,83,,,,,3,134,35,134,14,24,6,71 2260 DATA37,162,14,24,5,152,37,162,14,24,5,152 2261 DATA22,96,14,24,4,180,22,96,14,24,4,180 2262 DATA21,31,18,209,3,134,21,31,18,209,3,134 2263 DATA21,31,17,195,3,134,21,31,12,143,3,134:REM BAR 29 2264 DATA18,209,12,143,2,90,18,209,12,143,2,90 2265 DATA18,209,11,48,2,90,18,209,10,143,2,90 2266 DATA18,209,11,48,2,90,18,209,11,48,2,90 2267 DATA18,209,11,48,2,90,18,209,11,48,2,90 2268 DATA18,209,11,48,2,90,18,209,11,48,2,90,,,,,,:REM LOAD IN NEXT PART 5000 DATA999,999,999,999,999,999 5001 DATA19,13,82,85,78,13